home *** CD-ROM | disk | FTP | other *** search
/ Know Your Owls / Know Your Owls.iso / owlwork.zip / ohtuinc.tut < prev    next >
Text File  |  1994-10-21  |  3KB  |  114 lines
  1. ohtuinc
  2. (Script new
  3.     add: (ScriptStep new
  4.         playMIDI: 'afs\htua.mid';
  5.         yourself);
  6.  
  7.  
  8.     add: (ScriptStep new
  9.         fullScreen: 'scripts\htua\bitmaps\bigopen.bmp';
  10.         delay: 1;
  11.         unZoom;
  12.         rightBlank;
  13.         leftBlank;
  14.         leftListOn;
  15.         rightListOn;
  16.         avOff;
  17.         hostOff;
  18.         featuresOff;
  19.         exploreMultipleAnswersOff;
  20.         challengeMultipleAnswersOff;
  21.         yourself);
  22.  
  23.     add: (ScriptStep new
  24.  
  25.         leftBitmap: 'scripts\htua\bitmaps\incre2.bmp';
  26.  
  27.         rightBitmap: 'scripts\htua\bitmaps\incre9a.bmp';
  28.         playSound: 'scripts\htua3\51.wav';
  29.         delay: 2;
  30.         rightBitmapNoBlank: 'scripts\htua\bitmaps\incre8b.bmp';
  31.         delay: 2;
  32.         rightBitmapNoBlank: 'scripts\htua\bitmaps\incre8a.bmp';
  33.         delay: 2;
  34.         rightBitmapNoBlank: 'scripts\htua\bitmaps\incre9ad.bmp';
  35.         waitForMci;
  36.         yourself);
  37.     add: (ScriptStep new
  38.         delay: 2;
  39.         rightBitmap: 'scripts\htua\bitmaps\incre3.bmp';
  40.         moveTo: 426 @ 238;
  41.         playSound: 'scripts\htua3\52.wav';
  42.         waitForMci;
  43.  
  44.         yourself);
  45.     add: (ScriptStep new
  46.         leftBitmap: 'scripts\htua\bitmaps\incre3a.bmp';
  47.         delay: 4;
  48.         playSound: 'scripts\ding3.wav';
  49.         waitForMci;
  50.         autoSubset: #('Whiskered Screech-Owl' 'Eastern Screech-Owl' 'Great Horned Owl' 'Barn Owl' 'Flammulated Owl' );
  51.         leftBitmap: 'scripts\htua\bitmaps\incre3c.bmp';
  52.         delay: 2;
  53.  
  54.         rightBitmapNoBlank: 'scripts\htua\bitmaps\incre4.bmp';
  55.         playSound: 'scripts\htua3\53.wav';
  56.         waitForMci;
  57.         yourself);
  58.     add: (ScriptStep new
  59.         leftBitmap: 'scripts\htua\bitmaps\challeng.bmp';
  60.         playSound: 'scripts\htua3\53a.wav';
  61.         waitForMci;
  62.         yourself);
  63.     add: (ScriptStep new
  64.         leftBlank;
  65.         rightBlank;
  66.         identifyMode: 'Eastern Screech-Owl' attribute: 'Adult' index: 1;
  67.         hostOn;
  68.         delay: 2;
  69.         makeGuess: 'Eastern Screech-Owl';
  70.         delay: 2;
  71.         leftBitmap: 'scripts\htua\bitmaps\replac1.bmp';
  72.         delay: 2;
  73.         playSound: 'scripts\ding3.wav';
  74.         waitForMci;
  75.         replace: 'Eastern Screech-Owl' with: 'Western Screech-Owl';
  76.         leftBitmap: 'scripts\htua\bitmaps\incre3b1.bmp';
  77.         delay: 2;
  78.         nextIdentify: 'Barn Owl';
  79.         delay: 2;
  80.         makeGuess: 'Barn Owl';
  81.         delay: 2;
  82.         leftBitmap: 'scripts\htua\bitmaps\replac2.bmp';
  83.         delay: 1;
  84.         playSound: 'scripts\ding3.wav';
  85.         waitForMci;
  86.         replace: 'Barn Owl' with: 'Snowy Owl';
  87.         leftBitmap: 'scripts\htua\bitmaps\incre911.bmp';
  88.         delay: 3;
  89.         yourself);
  90.  
  91.     add: (ScriptStep new
  92.         playSound: 'scripts\htua3\54.wav';
  93.         waitForMci;
  94.         cancelSubset;
  95.         yourself);
  96.     add: (ScriptStep new
  97.         leftBitmap: 'scripts\htua\bitmaps\incre9ad.bmp';
  98.         playSound: 'scripts\htua3\55.wav';
  99.         waitForMci;
  100.         yourself);
  101.  
  102.  
  103.     add: (ScriptStep new
  104.         rightBitmap: 'scripts\htua\bitmaps\subsets.bmp';
  105.         playSound: 'scripts\htua3\56.wav';
  106.         waitForMci;
  107.         yourself);
  108.     add: (ScriptStep new
  109.         stopMIDI;
  110.         yourself);
  111.  
  112.  
  113.     yourself)
  114.